home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 4
/
Apprentice-Release4.iso
/
Languages
/
PowerMacOberon 1.2
/
Dialogs
/
DialogUtils.Sym
< prev
next >
Wrap
Text File
|
1995-08-14
|
2KB
|
8 lines
˜ΔÆÆΩDialogUtils ¸{x ˚{y ˙{msg ¯{cmd MessageBox “î˘ºDialogs Panel ¸{p ˚{x ˙{y Open ¸{x ˚{y ˙{msg ¯{cmd Prompt msgbox prompt
¿ cmd ¿ ƒ |PanelDesc ¸{p ˚{dir AlignSelected ¸{p ܵàflDisplay Frame ˚{f xFrameMsg ˙{m Broadcast ¸{p Object ˚{o Contains ¸{p Copy ¸{p ˚{x ˙{y ˘{f Draw ¸{p ¸{obj ˚{done ˚{handle Enumerate ¸{p ˚{x ˙{y ˘{w ¯{h ˜{obArray ı{nofelems
GetObjects ¸{p ˚{o ˙{ov Insert ¸{p ıñ≥Files res eof tRider ˚{r
Load ¸{p MarkMenu ¸{p ˚{dx ˙{dy MoveSelected ¸{p ˚{name NamedObject ¸{p NofSelObjects ¸{p ˚{x ˙{y Print ¸{p ˚{dir RegulateDistance ¸{p ˚{o Remove ¸{p ˚{x ˙{y ˘{w ¯{h RemoveObjects ¸{p RemoveSelections ¸{p Restore ¸{p ˚{x ˙{y ˘{w ¯{h Select ¸{p ˚{cmd SetCmd ¸{p ˚{r Store ¸{p ˚{x ˙{y ThisObject dsc next X
Y W H ¸{f ˚{msg Handler handle tFrameDesc
name
$cmd
!ƒ par ‰ selected  overlapping Ë panel x"""ObjectDesc ¸{o ˚{f ƒ…◊flViewers #Viewer #˙{v æœ⁄óTexts $Text $˘{t " CallCmd ¸{o ˚{dup "Copy ¸{o ˚{x ˙{y ˘{f "Draw ¸{o " Edit ¸{o ˚{x ˙{y ˘{w ¯{h "!GetDim ¸{o ˚{x ˙{y ˘{w ¯{h ""GetPDim ¸{o ˚{f ˙{msg "#Handle ¸{o "$Hide ¸{o "%Init ¸{o ˚{r ")Load ¸{o "*OverlappingObject ¸{o ˚{x ˙{y "+Print ¸{o ",Restore ¸{o "-Select ¸{o %˚{cmd ".SetCmd ¸{o ˚{x ˙{y ˘{w ¯{h ˜{cond "/SetDim ¸{o &˚{name "0SetName ¸{o '˚{par "1SetPar ¸{o ˚{r "2Store ¸{o "3UnSelect ¸{o ˚{p "4Update "state |((ViewerDesc #( len $¸{T ˚{op ˙{beg ˘{end )Notifier )notify x**TextDesc $*